inherited fmVisitors: TfmVisitors
  Left = 327
  Top = 203
  Width = 1310
  Height = 800
  Caption = #1042#1080#1079#1080#1090#1105#1088#1099
  Constraints.MinHeight = 700
  Constraints.MinWidth = 1000
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 735
    Width = 1294
  end
  inherited Panel1: TPanel
    Width = 1294
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 1119
    end
    inherited BitBtn2: TBitBtn
      Left = 1207
    end
  end
  object bdcVisitors: TdxBarDockControl [2]
    Left = 0
    Top = 45
    Width = 1294
    Height = 25
    Align = dalTop
    BarManager = bmVisitors
  end
  object gdVisitors: TcxGrid [3]
    Left = 0
    Top = 70
    Width = 1294
    Height = 665
    Align = alClient
    TabOrder = 7
    LookAndFeel.Kind = lfOffice11
    LookAndFeel.SkinName = 'Office2007Blue'
    object lvVisitors: TcxGridLevel
      GridView = tvVisitors
    end
  end
  object bmVisitors: TdxBarManager
    AllowReset = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Segoe UI'
    Font.Style = []
    Categories.Strings = (
      'Default'
      'Filters'
      'Actions')
    Categories.ItemsVisibles = (
      2
      2
      2)
    Categories.Visibles = (
      True
      True
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    LookAndFeel.Kind = lfOffice11
    LookAndFeel.NativeStyle = False
    LookAndFeel.SkinName = 'Office2007Blue'
    NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
    PopupMenuLinks = <>
    Style = bmsUseLookAndFeel
    UseSystemFont = True
    Left = 96
    DockControlHeights = (
      0
      0
      0
      0)
    object bmVisitorssBar1: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = #1060#1080#1083#1100#1090#1088#1099
      CaptionButtons = <>
      DockControl = bdcVisitors
      DockedDockControl = bdcVisitors
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 547
      FloatTop = 267
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          UserDefine = [udWidth]
          UserWidth = 199
          Visible = True
          ItemName = 'beDates'
        end
        item
          BeginGroup = True
          Visible = True
          ItemName = 'bePurpose'
        end
        item
          BeginGroup = True
          Visible = True
          ItemName = 'dxBarButton1'
        end
        item
          BeginGroup = True
          Visible = True
          ItemName = 'dxBarButton2'
        end>
      MultiLine = True
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      Visible = True
      WholeRow = False
    end
    object beDates: TcxBarEditItem
      Action = actDateInterval
      Category = 1
      Style = DMInv.stlCaption
      ShowCaption = True
      Width = 200
      PropertiesClassName = 'TcxButtonEditProperties'
      Properties.Buttons = <
        item
          Default = True
        end>
      Properties.OnButtonClick = beDatesPropertiesButtonClick
      StyleEdit = DMInv.stlCaption
      InternalEditValue = ''
    end
    object bePurpose: TcxBarEditItem
      Action = actPurpose
      Category = 1
      Style = DMInv.stlCaption
      ShowCaption = True
      Width = 300
      PropertiesClassName = 'TcxButtonEditProperties'
      Properties.Buttons = <
        item
          Default = True
        end>
      Properties.OnButtonClick = bePurposePropertiesButtonClick
      StyleEdit = DMInv.stlCaption
    end
    object dxBarButton1: TdxBarButton
      Action = actVisitorsUpdate
      Category = 2
      Style = DMInv.stlCaption
      Lowered = True
      PaintStyle = psCaption
    end
    object dxBarButton2: TdxBarButton
      Action = actVisitorsEdit
      Category = 2
      Lowered = True
    end
  end
  object gpmVisitors: TcxGridPopupMenu
    Grid = gdVisitors
    PopupMenus = <>
    Left = 400
    Top = 352
  end
  object alVisitors: TActionList
    Images = DMInv.cxSmallImages
    Left = 384
    object actDateInterval: TAction
      Category = 'Filters'
      Caption = #1044#1080#1072#1087#1072#1079#1086#1085' '#1076#1072#1090
      Hint = #1042#1099#1073#1086#1088' '#1076#1080#1072#1087#1072#1079#1086#1085#1072' '#1076#1072#1090
      OnExecute = actDateIntervalExecute
    end
    object actPurpose: TAction
      Category = 'Filters'
      Caption = #1062#1077#1083#1100' '#1074#1080#1079#1080#1090#1072
      Hint = #1062#1077#1083#1100' '#1074#1080#1079#1080#1090#1072
      OnExecute = actPurposeExecute
    end
    object actVisitorsUpdate: TAction
      Category = 'Actions'
      Caption = #1048#1089#1082#1072#1090#1100
      Hint = #1054#1073#1085#1086#1074#1080#1090#1100' '#1089#1087#1080#1089#1086#1082' '#1074#1080#1079#1080#1090#1105#1088#1086#1074
      ImageIndex = 63
      OnExecute = actVisitorsUpdateExecute
    end
    object actVisitorsEdit: TAction
      Category = 'Actions'
      Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100' '#1095#1077#1083#1086#1074#1077#1082#1072
      Hint = #1054#1090#1088#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100' '#1079#1072#1087#1080#1089#1100' '
      OnExecute = actVisitorsEditExecute
      OnUpdate = actVisitorsEditUpdate
    end
  end
  object cxGridViewRepository1: TcxGridViewRepository
    Left = 928
    object tvVisitors: TcxGridDBTableView
      OnKeyPress = tvVisitorsKeyPress
      NavigatorButtons.ConfirmDelete = False
      OnCellDblClick = tvVisitorsCellDblClick
      DataController.DataSource = dsVisitors
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = #1050#1086#1083'-'#1074#1086':,0'
          Kind = skCount
          Column = tvVisitors_VISITOR_NAME
        end
        item
          Format = #1050#1086#1083'-'#1074#1086':,0'
          Kind = skSum
          FieldName = 'IS_REPRESENTATIVE'
          Column = tvVisitors_STATUS_NAME
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnsQuickCustomization = True
      OptionsData.Deleting = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsSelection.HideFocusRectOnExit = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.OnGetContentStyle = tvVisitorsStylesGetContentStyle
      Styles.Header = DMInv.cxSiniyText
      object tvVisitors_ID: TcxGridDBColumn
        DataBinding.FieldName = 'ID'
        Visible = False
        Options.Filtering = False
        VisibleForCustomization = False
      end
      object tvVisitors_PID: TcxGridDBColumn
        DataBinding.FieldName = 'PID'
        Visible = False
        Options.Filtering = False
        VisibleForCustomization = False
      end
      object tvVisitors_VISITOR_NAME: TcxGridDBColumn
        Caption = #1060#1048#1054' '#1087#1086#1089#1077#1090#1080#1090#1077#1083#1103
        DataBinding.FieldName = 'VISITOR_NAME'
        Options.Filtering = False
        SortIndex = 0
        SortOrder = soAscending
        Width = 116
      end
      object tvVisitors_PVTIME_IN: TcxGridDBColumn
        Caption = #1042#1088#1077#1084#1103' '#1074#1093#1086#1076#1072
        DataBinding.FieldName = 'PVTIME_IN'
        Options.Filtering = False
        SortIndex = 1
        SortOrder = soAscending
        Width = 94
      end
      object tvVisitors_PVTIME_OUT: TcxGridDBColumn
        Caption = #1042#1088#1077#1084#1103' '#1074#1099#1093#1086#1076#1072
        DataBinding.FieldName = 'PVTIME_OUT'
        Options.Filtering = False
        SortIndex = 2
        SortOrder = soAscending
        Width = 97
      end
      object tvVisitors_PURPOSE: TcxGridDBColumn
        Caption = #1062#1077#1083#1100' '#1074#1080#1079#1080#1090#1072
        DataBinding.FieldName = 'PURPOSE'
        Options.Filtering = False
        SortIndex = 3
        SortOrder = soAscending
        Width = 118
      end
      object tvVisitors_NOTE: TcxGridDBColumn
        Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
        DataBinding.FieldName = 'NOTE'
        Options.Filtering = False
        Width = 103
      end
      object tvVisitors_PVID: TcxGridDBColumn
        DataBinding.FieldName = 'PVID'
        Visible = False
        Options.Filtering = False
        VisibleForCustomization = False
      end
      object tvVisitors_USERENTER: TcxGridDBColumn
        Caption = #1040#1074#1090#1086#1088
        DataBinding.FieldName = 'USERENTER'
        Options.Filtering = False
        Width = 79
      end
      object tvVisitors_TIMEENTER: TcxGridDBColumn
        Caption = #1044#1072#1090#1072'-'#1074#1088#1077#1084#1103' '#1089#1086#1079#1076#1072#1085#1080#1103' '#1079#1072#1087#1080#1089#1080
        DataBinding.FieldName = 'TIMEENTER'
        Visible = False
        Options.Filtering = False
        Width = 56
      end
      object tvVisitors_SDID: TcxGridDBColumn
        DataBinding.FieldName = 'SDID'
        Visible = False
        Options.Filtering = False
        VisibleForCustomization = False
      end
      object tvVisitors_STATUS_NAME: TcxGridDBColumn
        Caption = #1057#1090#1072#1090#1091#1089
        DataBinding.FieldName = 'STATUS_NAME'
        Width = 65
      end
      object tvVisitors_IS_REPRESENTATIVE: TcxGridDBColumn
        Caption = #1044#1086#1074'. '#1083#1080#1094#1086
        DataBinding.FieldName = 'IS_REPRESENTATIVE'
        Visible = False
        VisibleForCustomization = False
      end
    end
  end
  object fdsVisitors: TpFIBDataSet
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 720
  end
  object dsVisitors: TDataSource
    DataSet = cdsVisitors
    Left = 788
  end
  object cdsVisitors: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 656
  end
end
